// This example shows how to let the user browse for an OPC Data Access item. // // Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . // OPC client and subscriber examples in C# on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-CSharp . // Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own // a commercial license in order to use Online Forums, and we reply to every post. using System.Windows.Forms; using OpcLabs.EasyOpc.DataAccess.Forms.Browsing; namespace FormsDocExamples._DAItemDialog { static class ShowDialog { public static void Main1(IWin32Window owner) { var itemDialog = new DAItemDialog { ServerDescriptor = {ServerClass = "OPCLabs.KitServer.2"} }; DialogResult dialogResult = itemDialog.ShowDialog(owner); if (dialogResult != DialogResult.OK) return; // Display results MessageBox.Show(owner, $"NodeElement: {itemDialog.NodeElement}"); } } }
# This example shows how to let the user browse for an OPC Data Access item. # # Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . # OPC client and subscriber examples in PowerShell on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-PowerShell . # Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own # a commercial license in order to use Online Forums, and we reply to every post. # The path below assumes that the current directory is [ProductDir]/Examples-NET/PowerShell/Windows . Add-Type -Path "../../../Components/Opclabs.QuickOpc/net472/OpcLabs.EasyOpcForms.dll" $itemDialog = New-Object OpcLabs.EasyOpc.DataAccess.Forms.Browsing.DAItemDialog $itemDialog.ServerDescriptor.ServerClass = "OPCLabs.KitServer.2" $dialogResult = $itemDialog.ShowDialog() if ($dialogResult -ne [System.Windows.Forms.DialogResult]::OK) { return } # Display results Write-Host "NodeElement: $($itemDialog.NodeElement)"
' This example shows how to let the user browse for an OPC Data Access item. ' ' Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . ' OPC client and subscriber examples in VB.NET on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VBNET . ' Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own ' a commercial license in order to use Online Forums, and we reply to every post. Imports OpcLabs.EasyOpc Imports OpcLabs.EasyOpc.DataAccess.Forms.Browsing Namespace FormsDocExamples._DAItemDialog Friend Class ShowDialog Shared Sub Main1(owner As IWin32Window) Dim itemDialog = New DAItemDialog() With { .ServerDescriptor = New ServerDescriptor() With { .ServerClass = "OPCLabs.KitServer.2" } } Dim dialogResult As DialogResult = itemDialog.ShowDialog(owner) If dialogResult <> DialogResult.OK Then Return End If ' Display results MessageBox.Show(owner, $"NodeElement: {itemDialog.NodeElement}") End Sub End Class End Namespace
// This example shows how to let the user browse for an OPC Data Access item. // // Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . // OPC client and subscriber examples in Object Pascal (Delphi) on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-OP . // Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own // a commercial license in order to use Online Forums, and we reply to every post. class procedure ShowDialog.Main; var ItemDialog: OpcLabs_EasyOpcForms_TLB._DAItemDialog; begin // Instantiate the dialog object ItemDialog := CoDAItemDialog.Create; ItemDialog.ServerDescriptor.ServerClass := 'OPCLabs.KitServer.2'; ItemDialog.ShowDialog(nil); // Display results WriteLn(ItemDialog.NodeElement.ToString); end;
Rem This example shows how to let the user browse for an OPC Data Access item. Rem REM Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . REM OPC client and subscriber examples in Visual Basic on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VB . REM Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own REM a commercial license in order to use Online Forums, and we reply to every post. Private Sub ShowDialog_Main_Command_Click() OutputText = "" ' Instantiate the dialog object Dim itemDialog As New DAItemDialog Dim DialogResult DialogResult = itemDialog.ShowDialog itemDialog.serverDescriptor.ServerClass = "OPCLabs.KitServer.2" OutputText = OutputText & DialogResult & vbCrLf If DialogResult <> 1 Then ' OK Exit Sub End If ' Display results OutputText = OutputText & itemDialog.nodeElement & vbCrLf End Sub
Rem This example shows how to let the user browse for an OPC Data Access item. Rem Rem Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . Rem OPC client and subscriber examples in VBScript on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VBScript . Rem Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own Rem a commercial license in order to use Online Forums, and we reply to every post. Option Explicit Const DialogResult_OK = 1 Dim ItemDialog: Set ItemDialog = CreateObject("OpcLabs.EasyOpc.DataAccess.Forms.Browsing.DAItemDialog") ItemDialog.ServerDescriptor.ServerClass = "OPCLabs.KitServer.2" Dim dialogResult: dialogResult = ItemDialog.ShowDialog WScript.Echo dialogResult If dialogResult <> DialogResult_OK Then WScript.Quit End If ' Display results WScript.Echo "NodeElement: " & ItemDialog.NodeElement
# This example shows how to let the user browse for an OPC Data Access item. # # Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . # OPC client and subscriber examples in Python on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-Python . # Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own # a commercial license in order to use Online Forums, and we reply to every post. # The QuickOPC package is needed. Install it using "pip install opclabs_quickopc". import opclabs_quickopc # Import .NET namespaces. from System.Windows.Forms import * from OpcLabs.EasyOpc.DataAccess.Forms.Browsing import * itemDialog = DAItemDialog() itemDialog.ServerDescriptor.ServerClass = "OPCLabs.KitServer.2" dialogResult = itemDialog.ShowDialog() print(dialogResult) if dialogResult != DialogResult.OK: exit() # Display results. print('NodeElement: ', itemDialog.NodeElement, sep='')
Copyright © 2004-2024 CODE Consulting and Development, s.r.o., Plzen. All rights reserved. Web page: www.opclabs.com
Documentation Home, Send Feedback. Resources: Knowledge Base, Product Downloads. Technical support: Online Forums, FAQ.Missing some example? Ask us for it on our Online Forums! You do not have to own a commercial license in order to use Online Forums, and we reply to every post.